home *** CD-ROM | disk | FTP | other *** search
/ Magnum One / Magnum One (Mid-American Digital) (Disc Manufacturing).iso / d4 / check6.arc / TYPEDEF.SYS < prev    next >
Encoding:
Text File  |  1988-06-26  |  2.5 KB  |  65 lines
  1. (***********************************************************)
  2. (*                                                         *)
  3. (*                TURBO GRAPHIX version 1.03A              *)
  4. (*                                                         *)
  5. (*                  Type definition module                 *)
  6. (*                   Module version 1.00A                  *)
  7. (*                                                         *)
  8. (*                  Copyright (C) 1985 by                  *)
  9. (*                  BORLAND International                  *)
  10. (*                                                         *)
  11. (***********************************************************)
  12.  
  13. const MaxWorldsGlb=4;
  14.       MaxWindowsGlb=16;
  15.       MaxPiesGlb=10;
  16.       MaxPlotGlb=100;
  17.       StringSizeGlb=80;
  18.       HeaderSizeGlb=10;
  19.       RamScreenGlb:boolean=true;
  20.       CharFile:string[StringSizeGlb]='4x6.fon';
  21.       MaxProcsGlb=27;
  22.       MaxErrsGlb=7;
  23.  
  24. type  wrkstring=string[StringSizeGlb];
  25.       WorldType=record
  26.                   x1,y1,x2,y2:real;
  27.                 end;
  28.       WindowType=record
  29.                    x1,y1,x2,y2:integer;
  30.                    header:wrkstring;
  31.                    drawn,top:boolean;
  32.                    size:integer;
  33.                  end;
  34.       worlds=array [1..MaxWorldsGlb] of WorldType;
  35.       windows=array [1..MaxWindowsGlb] of WindowType;
  36.       PlotArray=array [1..MaxPlotGlb,1..2] of real;
  37.       character=array [1..3] of byte;
  38.       CharArray=array [32..126] of character;
  39.       PieType=record
  40.                 area:real;
  41.                 text:wrkstring;
  42.               end;
  43.       PieArray=array [1..MaxPiesGlb] of PieType;
  44.       BackgroundArray=array [0..7] of byte;
  45.       LineStyleArray=array [0..7] of boolean;
  46.  
  47. var   X1WldGlb,X2WldGlb,Y1WldGlb,Y2WldGlb,AxGlb,AyGlb,BxGlb,ByGlb:real;
  48.       X1RefGlb,X2RefGlb,Y1RefGlb,Y2RefGlb:integer;
  49.       LinestyleGlb,MaxWorldGlb,MaxWindowGlb,WindowNdxGlb:integer;
  50.       X1Glb,X2Glb,Y1Glb,Y2Glb:integer;
  51.       XTextGlb,YTextGlb,VStepGlb:integer;
  52.       PieGlb,DirectModeGlb,ClippingGlb,AxisGlb,HatchGlb:boolean;
  53.       MessageGlb,BrkGlb,HeaderGlb,TopGlb,GrafModeGlb:boolean;
  54.       CntGlb,ColorGlb:byte;
  55.       ErrCodeGlb:byte;
  56.       LineStyleArrayGlb:LineStyleArray;
  57.       ErrorProc:array [0..MaxProcsGlb] of ^WrkString;
  58.       ErrorCode:array [0..MaxErrsGlb] of ^WrkString;
  59.       PcGlb:string[40];
  60.       AspectGlb:real;
  61.       GrafBase:integer;
  62.       world:worlds;
  63.       window:windows;
  64.       CharSet:CharArray;
  65.